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CTION COMPLETE! 
AX TCS SYSTEM 


"REF THE TCS SW CONSOLE! 
"SET SELECT SW TO THIS PROCESOR 
"ENSURE MODE SW IS IN MANUAL! 
"PRESS & RELEASE RESET SW! 

TH OA 


RESET TCS 1ST PASS SW 
CHAR CHAIN (S) 

PRINT 

PRINT 


PRINT 
PRINT 
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- CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE 04 
OBJECT TEXT 


SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
* FINISHED OUTER TCS 
* DO INNER TCS 
Tc1Tc EQU 
MYA CTM43,R7 
svc our PRINT "REF TCS CONSOLE NEAREST PROCSR 
MVA CTM32,R7 
SVC OUT PRINT 'CHANGE SELECT SW POSITION! 


MVA CTM36,R7 
OUT 

MVA CTM4,R7 
ouTif 


PRINT "PRESS & RELEASE RESET SW! 


SVC PRINT "ENTER 01 WHEN ACTION COMPLETE! 
* INNER TCS DEVICES NOW DISAPPEARED 
BAL TCDEA RT DO FOR EVERY ADDRESS 
MVW STCDA¥, (R3 6) 1ST DEVICE IN 1ST TCS 4TH WORD 
MVB CESC2 3,7) CSS BIT 
Ad aeRoAT 2 J NO 2ND Tcs 
MVR STCDA*, (R3 6) 1ST DEVICE IN 2ND TCS 4TH WORD 
MVB cSsC2,, | 3,7) CSS BIT 
nN TeRS J NO 2ND TCS 
NVW © STCDA*, (R36) 1ST DEVICE IN 2ND TCS 4TH WORD 
eer MVE CSSC2, (R3,1) CSS BIT 
* FENISHED TWO CHANNEL SWITCH. 
CIAA9 EQU * 
CIA15 MVWI X'0000',CINCF RESET INITIAL CONFIGURATING FLAG 
: B OLYRA* RETURN TO BASIC 


FA IAI IORI III IGOR IGOR IGG EOI oti i ici dak ick 
CRRA PND OF INITIALIZATION PASS 830 RIOR IIR IR IR dK 
FRI IRI IO CII IGRI GR IGOR IORI ICR ICI 
AGI IRR IGRI IRI I OR IR kok 


* SUBROUTINE - DTYPS 
* PURPOSE ~ SEARCH CONFIG TABLE FOR A DEVICE TYPE 
2 INPUT - R3 = DEVICE TYPE TO SEARCH FOR 
* OUTPUT - R1 = ENTRY # 
R2 = ENTRY ADDRESS 
* R3 = 0 IF NOT FOUND, DT IF FOUND 
SOCIO IO IGOR RIOR OGG IG Joi fai A IOI RII IG IIR IIIa i sk 
DTYPS SLL 8,R3 
SRL 8,R3 
MVWI 1,R1 1ST ENTRY # 
MVWH  CPAIE,R2 @ 1ST REAL ENTRY 
DTYP2 CB (R2 1{,R3 
JE TYP9 DEVICE TYPE FOUND - GO RETURN 
AWI 1,R1 
AWI 16,R2 
CB CTABU*,R1 CK # ENTRIES IN TABLE 
JLE  DTYpP2 CK NEXT ENTRY 
* END OF TABLE REACHED & NO ENTRY FOUND 
SRL 165R3 ZERO R3 FOR RETURN 


DTYP9 B RETURN 

He He eH He He He He He He He ee He Ke He He he HK EH HK He Hee He KK ee he ee ee ee eK oe eh 2 ke He i i ook fc 2k ok ok kK 
He Ae Ae A he Hee He He eH He He HH RH He HH He HE HH HE He ee ee he ee He He he Xe he eRe eo ee he he ea oe he he ee ek 
HH HH HA KH HH MK HR HK HK RH KH KK KK KK KK RK KK KK KK OK KE OK KK 

* DATA 

He A fe He he He He Ae He ee ee ae fe eM A ee He He He He I 2 He He he ee ee 2 ee He He ee He He He 2 ee oe ee He eK eK 
* 


* CONTROL BLOCK OUTPUT 
oe WORD 


X'00CO! 

FFO2 DC A (PFO2A) 
* OUTPUT 

DC X'3833! 
FFO2A DC C'CONFIG ERROR-OIO Cc=' 
FFO2B DC Ct ' 

DC x'00! 
* 
* ] 
* CONTROL BLOCK OUTPUT 

ALIGN WORD 

DC X'0080! 
FF06 DC A (FFO6A) 

C A (~1) 
* OUTPUT 

C X'384C! 
FFO6A DC C'DEVICE NOT ATTACHED? 
: DC X'00! 
+ CONTROL BLOCK HTOE 
FFO9 DC A(T) # BYTES HEX DATA 
FFO9A DC A(DEVAD DATA ADDRESS (HEX) 
FFO9B DC A (FF 10B BUFFER ADDRESS (EBCDIC) 
* CONTROL BLOCK OUTPUT 

ALIGN WORD 

DC X'0080! 
FF10 DC. a (FF 10a) 

A (-1) 

OUTPUT 

DC X'384C! 
FF10A DC C'ADDRESS=' 
FF10B DC crt 

DC X'00! 


* 

SCR GIGI OGIGIGGIOGOIOIGIO ICR GIGI OR IOI kk RR I 4K 
* END OF DATA 

FRR RR TORIC GORI IORI IG IGG IR AGO dG 
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ALIGN WORD 
HEME AEA He HH HH He He He HE HK He He He EE He He he A ee eH He He he He ee Hee he ee He he ae ec he he ee 2k a 2 he ee He oe 


A OIO CONTROL BLOCK ~- FOR DCP 
FRI IR AR IORI IR RR RII III AIR I AOR OK 
CTRLBLOK DC A Beer 0/1 DEVICE ADDRESS POINTER 
DC A (OITOCCERR) 2/3 ERROR RETURN ADDRESS 
DATAWORD DC A (*-* 4/5 VARIABLE(USUALLY DCB ADDRESS) 
DC A (*—* 6/7 VARIABLE DEPENDENT ON O 
LASTSVC DC A (*-% 8/9 ADDRESS OF LAST SVC 
IDCBW2 EQU * 2ND WORD IDCB = STATUS WORD FOR KITE 
DEVID DC ed 10/11 SECOND WORD OF IDCB (DEVICE ID) 
FA IOI RO RI RII AOR A IO RR RIOR AF II OR Fg A dR a 
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- CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE OWA 
SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
* AME - ERROR OIO CC SUBROUTINE (BEFORE INTERRUPT) 
* PURPOSE - TO DETERMINE THE OTO CONDITION CODE RETURNED IF NOT 7 
* COME HERE ONLY IF CC NOT = 7 
* CONDITION CODES BEFORE INTERRUPT ARE 
* CC = 0 NOT ATTACHED 
* CC= qf BUSY 
* CC = 2 BUSY AFTER RESET 
* CC = 3 COMMAND REJECT 
* CC = 4 NOT USED 
* CC = 5 INTERFACE DATA CHECK 
* CC = 6 CONTROLLER BUSY 
* CC = 7 GOOD 
PES SSS SESS ESSE SS SS TE LSE SES LS LS SSL SESS SE SSS SSSSS SSS SS SSS ese SRE See SS SS es 
OLOCCERR CPLSR R3 GET INDICATORS 
SRL 13,R3 EXTRACT CONDITION CODE 
MVR R3,OI0CC SAVE CONDITION CODE 
* R3 = OIOCC FOR CE 
MVW  DEVAD,R4 RG = DA & TYPE FOR CE 
MVA  FFO9,R7 
SVC HTOE 
MVA  FF10,R7 
svc ouT PRINT "ADDRESS=XX' 
MVA CCERRHTE,R7 
SVC HTOE 
MVA FFO2,R7 
svc OUT PRINT "OTO CC= XXXX! 
CwI 0,Orocc 
JNE CCERREND J 
* CC = 0 = DEVICE NOT ATTACHED 
MVA  FFO6,R7 
svc OUT PRINT "DEVICE NOT ATTACHED! 
CCERREND B BACK6* GO RETURN FROM READ STATUS SUBROUTINE 
AK He He He He He Be He He HK He ee He ee A HK ee hc ec a fe i fc eae fe lc he he ee fe eee hc oe Hehe he he fe ae ae ale i ae ae kc ac af kc ake fe af fe fe ae fc oc of ke 
* CONTROL BLOCK HTOE 
CCERRHTE DC A(2 # BYTES 
DC A (OLOCC FROM ADDRESS (HEX 
DC FFO2B TO ADDRESS (EBCDIC) 
SS ES SPS LE SELES L SS SPS ELST FSS ETS STS SPL SLES STS SS SS SPS SSS SP Sse Se eT SSE LS LSS SS 


OTOCC DC X'0000! CONDITION CODE 
HH HH HHH HH KH HM KK KK HK HK HH HH RK He KK RO KK eK KK KK KK OK 
We HH He He He He eH He He He He He HH He He EE He He HC He He He HC he He He He HE He He ee a He a He he a He he oc 2 ee ok ie tc i eK i 


* START READ STATUS 
PS ESS SE LESSEE SELES SL ESE SPE EST SST LSS SS SES LESS SS LE SE SESS SS TS Stee eS Peete se Sf 4 
CSTAT MVW  R7,BACK6 SAVE RETURN ADDRESS 

MVWZ DAfAWORD,R7 ZERO MODIFIER INTO CONTROL BLOCK 
- MVA  CTRLBLOK,R7 GET PARAMETER LIST ADDRESS 
: SVC RESET RESET DEVICE 

MVHI X'0003"',DATAWORD MODIFIER INTO CONTROL BLOCK 
: MVA  CTRLBLOK,R7 GET PARAMETER LIST ADDRESS 
i, SVC -RSTAT READ STATUS 

K6* 


B RETURN 
HE He Hee He HH HK HH He He HH HH HE He He eH HH He ee He he ee ie ec i fe ac 2 ie Ae oc i i A i OK KK KK KK 
HH AK RK KKK HR KH KK KH KKK KK HK KK KKK RK KKK KK HK REE KK KKK KEK 


BACK6 Dc A (*-* START CYCLE STEAL STATUS RETURN 
AO RRR III IR RI OR IGOR JIG IOS a lok ka de kaiok eaiote ak fe ok 
a cra ea aS ge cs ma nc a al a a ee cn a as ec cn aoe Spe oe tel me Ss ems Seve 
* DO FOR EVERY ADDRESS SUBROUTINE 
TCDEA MVW  R7,TCDRA SAVE RETURN ADDRESS 
MVW CTHO0,CTAD1 ADDRESS ZERO FOR FIRST READ ID 
MVWI  O,STCDA INITIALIZE DEVICE ENTRY ADDRESS 
MVWI O0.cSSCS INITIALIZE CSS SW 
CIAA4 MVB  CfADD,CTIDA ADDRESS FOR READ ID 
BAL CYRID.R7 READ DEVICE ID 
MVWI 1,cTSEN START SEARCH AT ENTRY 1 
SRL 16,87 
MVW  R7,CBPA3 0 
MVW  R7,CBPAG 0 
MvW crhD1,CTSA SEARCH ADDRESS 
BAL CSRCH,R7 SEARCH TABLE FOR ENTRY WITH ADDRESS 
MVW  CTSEF RT 
JZ CIAAS J NOT IN TABLE 
* ADDRESS HAS AN ENTRY IN TABLE 
MVW  CTIDF,R7 
JNZ  CTIAA8 J IN TABLE & IN HARD = OK 
x IN TABLE & NOT IN HARD = TCS DEVICE HAS DISAPPEARED 
MVW  CTSEA,R7 @ OF TABLE ENTRY 
TBT R7, 22) CK TCS BIT 
JON TAA8 J IGNORE IF TCS BIT ALREADY ON 
# SET TCS BIT IN TABLE ENTRY. 
MVW  CTSEA,R7 @ OF TABLE ENT 
TBTS (R7 22) SET TCS BIT ON IN ENTRY 
* ESfS FOR CYCLE STEAL DEVICE ON TCS. 
* BYPASS IF ONE ALREADY De 
MVW  CSSCS,R3 
JNZ  CIAA8 J BYPASS, CS DEVICE ALREADY FOUND 
MVW R7,STCDA SAVE TCS DEVICE ENTRY ADDRESS 
AWI 15°R7,R4 R4 = LAST BYTE OF ENTRY 
TRY (Rh 6) TEST CYCLE STEAL BIT IN READ ID 
JOFF CIaks 3 NOT A CS DEVICE. CK NEXT ENTRY 
* FOUND A CYCLE STEAL TCS DEVICE. ENTER IN TCS ENTRY 
MVWI  1,CSSCS YCLE STEAL DEVICE SWITCH 
CLAA8 CK NEXT ADDRESS 
* NOT IN TABLE 
CIAA5S MVW CTIDF,R7 
JZ CIAA8 J NOT IN TABLE & NOT IN HARD = OK 
* NOT IN TABLE & IN HARD = TCS DEVICE 
* NEVER HAPPEN, NO ACTION REQUIRED. 
MVA CTM52,R7 
SVC QUT PRINT "ERROR-TCS IN WRONG POSITION! 


NEXT ADDRESS 


1,CTAD1 

COWFF,CTAD1 

JLE  CIAA4 J ALL ADDRESSES NOT TESTED 

so ICE eK ALT ADDRESSES HAVE BEEN TESTED 

PES PSL SS SSS TEL ELS SSPE SS ES SESS SS SS SSS SSS SSS Sete SSCS SS SS SSCSSS SS SS SCSSCSPL SL + F 
B TCDRA* RETURN-NORM AL 

FRI ORI IG IRR IIR IGOR GIGI GIORGIO III I aC aI a ae ae 


CIAAA B CIAO03 RETURN-ERROR-RESTART AUTO CONFIG 


J 
CIAAS AWI 
CW 


SOOOOUNOUDVOUUOVTOVOEVOUVUVYVYULOODVOVUYUYL 


O38F2 - CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE 05 O38F2 - CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE O5A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
929 ee ee nn OOO000F 1050 FIVTN EQU 15 15 
00272A 0000 930 TCDRA DC x RETURN ADDRESS 000010 1051 SIXTN EQU 16 16 
00272c 0000 931 STCDA DC {G00 TCS DEVICE ENTRY ADDRESS 000011 1052 SEVIN EQU 17 17 
00272E 00 932 cSSscs DC x'o0o! 1 = CYCLE STEAL DEVICE SWITCH 000014 1053 TWNTY EQU 20 20 
00272F 00 933 CSSC2 DC 3008 1 CYCLE STEAL DEVICE SWITCH BYTE 2 000015 1054 TWEN1 EQU 21 21 
934 Sa a BROKE RCE EOE OOO EE SOIREE OR BECK IE EK 000017 1055 TWEN3 EQU 23 23 
935 *—-- = a a errr 000019 1056 TWEN5S EQU 25 25 
936 * END DO FOR EVERY ADDRESS SUBROUTINE 00001A 1057 TWEN6 EQU 26 26 
937 €--- nn nn a a a rr rrr 00001C 1058 TWENS EOU 28 28 
938 PSS SST SSCS SS SSS SSS SSCS SLES SSE SSS SSS SSL SLE LS SSS ESTE SSE SS TPS ESS TS SSS SS SS SF OO001TE 1059 THRTY EQU 30 30 
9u0 PS SSS LS SSS SSS LS SSS SC SSS SSS SC SSSSSLS SS SSL SLES LESS SL SESS SE SE TS SS StS STS tt SS SS 000039 1060 FIFT7 EQU S7 57 
941 * COPY COMMON SUBROUTINES 00003C 1061 SIXTY EQU 60 60 
Qu? cee TS CSCS SCSCCSCOSS SSS SSS SSCSSSCSSCS£OSSSSSLSSSSL SS SS SES SS STEPS TSS TS TT LES SSS St Fs 000040 1062 SIXTY EQU 64 64 
943 COPY DNSUB1 000042 1063 SIXT6 EQU 66 66 
944 EGURTELERASLEO TY CSET OR Cee eee eee rea ree eee eee See ee OOOOYB 1064 SEVNS FOU 75 715 
G45 * * x TITLE KK 0000C0 1065 ONE92 EQU 192 192 
946 * "CONFIGURATION COMMON SUBROUTINES! * 0000D0 1066 TWOO8 EQU 208 INPROC,SUP ST,SM MSK 
947 PSS TSS SSL SSS SSS SSLS SSS SSC SSOCLSC SS SSS SSCS LS SSL SL SSS ELE SS SSS ST TSS TS SSP tS SS SS SS 000100 1067 TWO56 EQU 256 256 
949 PS SCS SESS SSS SS SS SS SES SPSS SSSSS SS SLE SSS SSS ESL SES SPSS SESS SS ST SS FSP SS SSS FS SS S| 000160 1068 THR52 EQU 352 352 
950 * * 001000 1069 FOURK EQU 4096 4096 
951 * SYSTEM EQUATES - WAS MEMBER DCPEQUNA . 000030 1070 HITHTY EQU x'30! HEX 30 
952 * 003FFE 1071 H3FFE EQU X'3FFE!® HEX 3FFE 
953 OD eacilopusue pes aas os eat eeah eae ves eas ee ee FFFFFF 1073 M1 EQU —1 -1 
000001 954 SM EQU 1 SUMMARY MASK DISABLE OR FFFFFE 1074 M2 EQU -2 -2 
955 * ENABLE CODE FFFFFD 1075 M3 EOU ~3 -3 
000002 956 AT EQU 2 ADDRESS TRANSLATOR ENABLE OR FFFFFO 1076 M16 EQU -16 -16 
957 * DISABLE CODE FFFFE4 1077 M28 EQU ~28 -28 
958 PS SSS SSS SL SSS SSS StS SSL SS SSS SSS SSS SSS SSS LS LSS SSS SSS SL SLE SSS SPSS SS SS FSS StF FFFFE2 1078 M30 EQU ~30 -30 
959 * * 00D4C3 1080 MCKLB EQU C'mc! 
960 * EQUATED NAMES FOR SUPPORTED SVC'tS * 00D7C3 1081 PKLAB EQU Cc'pct 
961 * ote 1083 ** KKK PSPS SSeS SLOLSSSSL SL SLL SSPE SSS LESS SESE LES SS ST SSS LSS PS SSS tS STS SSS StS 
962 PT eS eT SSeS LSS SS SL SLL SSS SPSS SS LSE LS SL SSL SSS LS SLES SSL SSL SS ELS SSS tS Ft SS SS ES Ss 1084 * * 
000000 963 OUT EQU 0 ouT svc 1085 * EQUATES FOR DISK of 
000001 964 OUTIN EQU 1 OUTIN SVC 1086 * * 
000002 965 IDLE EQU ? IDLE SVC 1087 PS SSCS CS LSS SS SSS SSS SSL SSS SSS SLE SS SSS SLES TSS SPS SST SETS SES SES TSS PLES Ste Lt tS SS 
000003 956 ASCII EOU 3 HEX TO ASCII SVC 000006 1088 BOE EQU 6 DISP TO BOE FROM START OF 
000004 967 CHNGE EQU rm CHANGE LEVEL SVC 1089 * ENTRY IN VTOC 
000005 968 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 000008 1090 EOE EQ U 8 DISP TO EOE FROM START OF 
000006 969 EXIT EOQOU 6 EXIT SVC 1091 * ENTRY IN VTOC 
000007 970 TERM EOD 7 TERMINATE SVC 00000C 1092 DSTYP EQU 12 DISP TO TYPE OF DATA SET IN 
000008 971 RESET EQU 8 RESET DEVICE SVC 1093 ENTRY OF VTOC 
000009 972 D EQU 9 READ ID SVC OO0OO000F 1094 SPTE EQU 15 NUMBER 5 ECTORS/TRACK 
OOO000A 973 START EQU 10 START CYCLE STEAL SVC O0O0000F 1095 DIP2A EOt 15 ADDR 1ST DYPL2 TOR 
00000B 974 STCSS EQU 11 START CYCLE STEAL STATUS SVC OO001E 1096 EDIP2 EQU 30 ADDR LAST L2 S CEC TORS 1 
00000C 975 PREP EOU 12 PREPARE DEVICE SVC 000078 1097 PRC1A EQU 120 ADDR 1ST PRoet SECTOR 
00000D 976 READO EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 0000B4 1098 EPRC1 EQU 180 ADDR LAST PROC1 SECTOR+1 
OOO00E 977 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC 0000B4 1099 PRC2A EQU 180 ADDR 1ST PROC2 SECTOR 
OOOOOF 978 RSTAT EQU 15 READ STATUS SVC 0000F0 1100 EPRC2 EQU 240 ADDR LAST PROC2 SECTOR+#1 
000010 979 WRITO EOU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 0000F0 1101 PRC3A EQU 240 ADDR 1ST PROC3_ SEC 
000011 980 WRIT1 EOU 17 WRITE WITH FUNCTION BIT 3 ON SVC 00012C 1102 EPRC3 EOU 300 ADDR LAST PROC3 SECTOR+1 
000012 981 CTRL EQU 18 CONTROL SVC OO014A 1103 VTOCA EQU 330 ADDR 1ST VTOC SECTOR 
000013 982 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 000168 1104 EVTOC EQOU 360 ADDR LAST VTOC SECTOR+1 
000014 983 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC OOO8AB 1105 LDSST EQU 2219 ADDR LAST SECTOR ON DISK 
000015 984 HIO EOU 21 HALT I 70 SVC 000168 1106 FDSST EQU 360 ADDR 1ST DATA SECTOR 
000016 985 REOSD EQU 22 REQUEST USE OF DCP DISK SVC OOOOOA 1107 DCPCY EOU 10 CYLINDER DCP ON 
000017 986 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 000020 1108 LVTE EQU 32 LENGTH IN BYTES OF A VTOC ENTRY 
000018 987 HALT EQU 24 HALT SVC 000008 1109 NDFPS EQU 8 NUMBER ENTRIES/SECTOR IN VTOC 
000019 988 ETOH EOU 25 EBCDIC TO HEX SVC (STRING 000004 1110 CHDLG EQU rT DISP TO DATA IN MULT SECT!S 
00001A 989 HTOE EQU 26 HEX TO EBCDIC SVC (STRING QOOOOA 1111 VHDLG EQOU 10 NUMBER BYTES OF HEADER INFORMATION 
00001B 990 ATOH EOU 27 ASCIT TO HEX SVC TRING OOO00E 1112 IHDLP EQU 14 NUM BYTES PAST ALL HEADER INFO 
00001C 991 HTOA EQU 28 HEX TO ASCII SVC (STRING OO001E 1113 VHDLP EQU 30 
00001D 992 ETOA EOU 29 EBCDIC TO ASCII SVC (STRING 1114 * ON 1ST SECTOR OF EACH PROGRAM DATA 
QOO001E 993 ATOE EQU 30 ASCIT TO EBCDIC SVC (STRING 1115 * 
OOOO1F 994 READI EQU 31 READ DATA SETS FOR MDI/ UTIL 1117 PSS SSSS SSS SSE SLES SSS T SSS SSL SL SSS SSL ES LEST SSS TES SE SL SSS SL SS SS 2 St SSS StS 2 tS SSS 
000020 995 WRITI EOU 32 WRITE DATA SETS FOR OTIL 1118 * * 
996 * 1119 * EQUATES FOR CODED STOPS USED BY DCP * 
000020 997 VLDSV EQU 32 NUMBER OF HIGHEST VALID SVC 1120 * (NORMAL AND ERROR) * 
999 fe 2 af fe ke he ae ok ok he 2c 2 he fe fe He 2 a ofc ake ae ae af hc ae hee ae he a fe he eae he ae he 2h fe fee he oe oe Re he ee He ah fe ae fe ac he ake he 9K ae ie oe ee ak oe ke ek 1121 * * 
1000 * * 1122 Oe he ake fe ok fe af of ate ae ae he oh he of fe he ae he af hc fe a oe ake ae He cc 2 ah afl ae 2 he le he ae afc He ae he af he he he he ae ae Be ae he fc fc he he ae afc fe ee fe fe ae eae ae he he ak oe 
1001 * EQUATES USED BY DCP * 003800 1123 RECD1 EQU x*3800! DCP WAIT 
1002 * * 003801 1724 ACNG EQU x'3801! ALTERNATE CONSOLE ERROR 
1003 coe LS SL SSL SSL SSS SSL ESS SSS SS SSS SST SSLELSSSSSSLS SSS SSL LS PLS ST TS ST STS SSS SS SS SS 003802 1125 PCKCD EQU x? 3802 PROGRAM CHECK ERROR 
000000 1004 AUTO EOQU 0 AUTOMATIC MODE IND 003803 1126 MCKCD ECU X*38038 MACHINE CHECK ERROR 
000000 1005 TPGS¥ EOQU 0 TERMINATE PGM SW 003804 1127 PTWMG EOU X'38045 POWER THERMAL ERROR 
000001 1006 LOOP EOU 1 LOOP PGM IND 003805 1128 PSTER EQU X'3805! PROGRAM TERM 
000002 1007 OFF EQU 2 TURN OPT BITS OFF 003806 1129 INVCD EQU x'3806! INVALID COMMAND ERROR 
000002 1008 ON EQU 2 TURN OPT BITS ON 003807 1130 ALTCN EQU X*3807! ALT IN/OUT UNDER TEST 
000003 1009 UTIL EOQU 3 UTILITY REQUESTING DATA 003808 1,31 RES FOU X'3808! ALT IN/OUT ON LINE 
000004 1010 LODED EOU 4 PGM LOADED 003809 1132 UXP FOU x'3809'8 UNEXPECTED 1¢0 INTERRUPT 
000006 1011 STOP EOQOU 6 STOP AFTER MSG OUT 00380A 1133 BPCD5 EQU X'380A8 PROGRAM STARTED 
000007 1012 ALTDV EQU 7 ALTERNATE OUTPUT DEV ASSIGNED 00380B 1134 LPCD4 EQU X'380Bt DISK ERROR 
000008 1013 NXTVT EOU 8 TAKE NEXT DATA SET IND 00380C 1135 LPCD5S EOU X*380C! PROGRAM NOT FOUND 
OOO000A 1014 IRD EQ U 10 MDI READ REQUEST 00380D 1136 LPCD6 EQU x'380D! PROGRAM LOADED 
000008 1015 REMDI EOQU 11 MDI RETURN REQ 00380E 1137 HLTCD EQU X*380E! HALT SVC 
00000C 1016 TUIDS EQU 12 SAVE THE T.U. fT. 003810 1138 RPCD2 EQU X'*3810! PROGRAM NOT EXPECTING REPLY 
00000D 1017 LDIAG EQU 13 LOOP ALL DIAG PACKAGE 003812 1139 RPCD5 EQU X*3812' PROGRAM EXPECTING HEX DATA 
OOO0O0E 1018 CNRUN EOU 14 UNIT ADR ASSIGNMENT RON 003813 1140 ERR1 EOD X'3813! TOO MANY CHARACTERS ENTERED 
000003 1020 NINTL EQOU 3 HIGHFST INT LEVEL ON SYSTEM 003814 1141 ENTCD EQU x'38148 ASK FOR DATA ENTRY 
000030 1021 MDIRT EQU 48 MDI IMMEDIATE RETURN IN CNTL BLK 003815 1142 SVCOD EQU x*38158 TOO MANY SVC CALLS 
OQOOOOE 1022 OPWRD EQU 14 DISP TO PGM OPTION WORD TV ea a AE eR a eK 2 ee a ee a 2 he ee he He ee 2 2 He Hc 2 He He He ee he ei he a ae ae i ae he oe ee Ke 
00000D 1024 EOT EQU xtop' END OF MESSAGE CHAR (RETURN) 1145 * * 
000011 1025 TTBEL EQU x'4tt ATTEN CHAR (X-ON) 1146 * THE FOLLOWING EQUATES ARE THE DISPLACEMENT FROM THE * 
00007F 1026 DLETE EQU X'7F! DELETE CHAR (RUBOOT) 1147 * START OF A PROGRAM HEADER OF THE VARIOUS INFORMATION IN * 
OOOO4E 1027 PLUS FOU ct4+t PLUS CHAR 1148 * EACH PROGRAM HEADER * 
000060 1028 MINUS EQU ct-t MINUS CHAR 1149 * * 
000040 1029 EBBK EQU crt PLANK CHAR T1502 RK a Ee He te he a He Oe ee He ee eH ee He he 2 ee he a a ee a aK He ei ee 2 he i fe ee a a a ae che ee aK He OK ic ie KK I 
001800 1031 NEGZR EQU x* 1800! NFGATIVE AND ZERO INDICATORS 000000 1151 HID EQU 0 PROG I.D. 
000064 1032 STPCD EOU X*'6ue STOP CODE FOR MEMORY 000000 1152 DVADR EQU 0 DEVICE TYPE IN DEVICE TABLE 
000010 1033 SMBIT EOU xXx*0010? SUMMARY MASK BIT 000001 1153 DVTYP EOQU 1 DEVICE ADR IN DEVICE TABLE 
000000 1035 ZERO EOU 0 VALUE OF 0 000003 1154 HDDP1 EOU 3 DEVICE DEPENDENT DATA 
000001 1036 ONE EOU 1 1 000004 1155 HDDP2 EQU 4 DEVICE DEPENDENT DATA 
000002 1037 TWO EOU 2 2 000004 4156 CPUMD EOQU 4 CPU MODEL DISPLACEMENT 
000003 1038 THREE EOU 3 3 000006 1157 LSADR EQOU 6 LAST ADR DESPLACEMENT 
000004 1039 FOUR £00 4 4 000006 1158 HPK EQU 6 PROTECT KEY 
000005 1040 FIVE EOQU 5 5 000007 1159 HPK1 EQU 7 PROTECT KEY PLUS ONE 
000006 1041 SIX EOU 6 6 000006 1160 HPSA EQU 6 DIAG PROG START ADR 
000007 1042 SEVEN EQU 7 7 000006 1161 INTAR EQU 6 DEVICE INTERRUPT ADR 
000008 1043 EIGHT EQU 8 8 000008 1162 HDVTB EQU 08 DIAG DEV TABLE POINTER 
000009 1044 NINE EQU 9 9 000011 1163 EXPNT EQU 17 
OOOOOA 1045 TEN EOU 10 10 000012 1164 TBEND EQOU 18 END OF TABLE IND 
000008 1046 ELEVN EOU 11 11 000013 1165 SCEND EQU 19 END OF SECTOR IND 
00000C 1047 TWELV EQU 12 12 000014 1166 CICBT EQU 20 C I C B INDICATOR 
00000D 1048 THRTN EQU 13 13 000008 1167 CFEXT EQU 08 
OOO00E 1049 FORTN EOU 14 14 000012 1158 HTUID EOU 18 MDI MAP I.D DISPLACEMENT 


O38F2 - CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PASE 06 O38F2 - CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE O6A 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
000010 1169 UDTAS EQU 16 UNIT ASSIGNED BIT 00275E 00 1286 CTSA DC Xx'0Q8 SEARCH FOR DEVICE ADDRESS 
000020 1170 PDTAS EQUO 32 OO0O275F 00 1287 CTSA2 DC xX*oo!? SEARCH FOR DEVICE ADDRESS - BYTE 2 
000000 1171 OUNCRT EQU 0 UNCONDITIONAL RETURN BIT 002760 0000 1288 CTSEA DC X'00008 ENTRY FOUND ADDRESS 
000001 1172 CKDAD EOD 1 CHECK REQUESTED DEV : 002762 00 1289 CTSEF DC X*00! ENTRY FOUND NUMBER 
000008 1173 IOCHK EQU 11 I/O CHK IN PSW : 002763 00 1290 CTSEE DC x*oor ENTRY FOUND NUMBER - BYTE 2 
O0000F 1174 NEWAR EOU 15 002764 =0000 1291 CTSEN DC xX*0000! ENTRY # TO START SEARCH AT 

(EWES STE tit et SSS SST SSC SSS SL SSS SSS SSCS OL SCS SSCS SOSCS SCC CSS SSC CCS Se SCS LS SS St 2 SS 002766 00 1292 CTAD1 DC Xx? Oo" ADDRESS BYTE 1 
1176 * * 002767 OO 1293 CTADD DC X*OO! ADDRESS BYTE 2 
1177 * THE FOLLOWING EQUATES ARE THE OFFSETS INTO EACH ENTRY * 002768 0000 1294 IPLPS DC x*0000 SWITCH ~ IPL PASS 
1178 * FOR THE DATA SPECIFIED. (16 BYTES / ENTRY) * 00276A 0000 1295 PASS1 DC X*'0000! 1ST PASS FLAG 
1179 * x 00276C 0000 1296 CINCF DC X*OQO0008 FLAG IN INITIAL CONFIGURATING MODE 
1180 x Ra KR a HR eo oe he a dk tek ok dk Sk i tok ok ok dette dak ik tek ok 00276E 0000 1297 CBPA3 DC X¥'0000? FLAG BYPASS A3 OEMIA ENTRIES IN CSRCH 
000000 1181 CUDA &EOQU 0) DEVICE ADDRESS 002770 0000 1298 CBPA4Y DC X'*OQ0000! FLAG BYPASS A& KITE ENTRIES IN CSRCH 
000001 1182 CUDT EQU 1 DEVICE TYPE 002772 0000 1299 CCERR DC x'00008 FLAG CONDITION CODE ERROR IN READ ID 
000002 1183 CUODF EQU 2 CONTROL FLAGS 002774 OO 1300 CEDN1 DC X'OO? COUNTER TO ENTER DEVICE TYPE 
000003 1184 CUDD1 EQU 3 DEVICE DEPENDENT DATA -- 1 002775 00 1301 CEDN2 DC X'O0O8 COUNTER 
000004 1185 CUDD2 EQU iy DEVICE DEPENDENT DATA -- 2 002776 00 1302 CHACT DC x'oor COUNTER FOR DEVICE ADDRESS 
000005 1186 CUDD3 EQU 5 DEVICE DEPENDENT DATA -- 3 002777 OO 1303 CHAC2 DC x'oo?r COUNTER 2ND BYTE 
000006 1187 CUDD4 EQU 6 DEVICE DEPENDENT DATA -- 4 002778 OO 1304 CTMC1 DC X*O00! PRINT COUNTER BYTE 1 
000007 1188 CUDD5 EQU 7 DEVICE DEPENDENT DATA -- 5 002779 OO 1305 CTMC2 DC x*oo!8 PRINT COUNTER BYTE 2 
000008 1189 CUDD6 ay 8 DEVICE DEPENDENT DATA -- 6 OO0O277A 40404040 1306 CDVT1 DC c! ' DEVICE NAME RETURNED BY CDEVT 
000009 1190 CUDD7 EOU 9 DEVICE DEPENDENT DATA -- 7 O0O277E 40404040 1307 CDVT2 DC ct 8 DEVICE NAME RETURNED BY CDEVT 
OOOOOA 1191 CUDD8 EQU 10 DEVICE DEPENDENT DATA -- 8 VB OB HR A He ae a a he a ae he ae Re fe ae a 2 2 a 2 fe ok af a a 2 fe ac a ae a ac 2 a i a oe cc oe a a kak 
00000B 1192 CUDDIS EQU 11 DEVICE DEPENDENT DATA -- 9 1309 * CONTROL FOR WRITI 
00000C 1193 CUDDA EQU 12 DEVICE DEPENDENT DATA -- 10 002782 2788 1310 CTRLS DC A (CTRL6) ADDRESS OF CONFIG TABLE NAME 
O00000D 1194 CUDDB EQU 13 DEVICE DEPENDENT DATA -- 11 002784 3000 1311 DC X*3000! WRITI - ADDRESS OF CONFIG TABLE 
OOO000E 1195 CUODRI EQU 14 DEVICE READ ID DATA RETURNED 002786 0800 1312 DC x*08008 WRITI — # WORDS TO WRITE = 2048 
1197 HF HR HK te ae ae He ae He he 2 OR ee eo fe ae he ae 2 a ea 2 a oe oc a oe he Re RR RK FR OR IO tO ok 002788 F3F8C6F1 1313 CTRL6 DC C*38F1? CONFIG TABLE NAME 
1198 * x SREP Met eT SCtrtes ess trrertrrSSeSSLCCSCSCS£L CST TTS TT TSrr re + ff | 
1199 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE * 1315 * CONFIGURATION TABLE 1120 BYTES 
1200 * START OF A QUE BLOCK OF THE VARIOUS INFORMATION. * 1316 * ENTRY ZERO = SYSTEM INFORMATION 
1201 * 1317 * ENTRY 1—- FF = DEVICE DATA 
[PAIS Steet SSS SSS SESS SSL SSS CSL CSS SC£SS SO SSCS SOLS SS SSS LLCS LCST SS SSCS SS STS SS LS eS S 00278C 0010 1318 CTLEL DC x*0010* TABLE ENTRY LENGTH = 16 BYTES 
000000 1203 QIAR EQU 0 TARB OF CALLING PROGRAM 00278E 1000 1319 CTLNG DC F'*4096! CONFIGURATION TABLE LENGTH 
000002 1204 QAKR EQU 2 KEY REG 002790 3000 1320 CTABA DC x*3000* ADDRESS OF CONFIGURATION TABLE 
000004 1205 OLSR EQU 4 LSR OF CALLING PROGRAM 002792 3002 1321 CTABU DC X¥*3002° ADDRESS NUMBER OF ENTRIES USED 
000006 1206 QRO EQU 6 XRO OF CALLING PROGRAM 002794 £=x3003 1322 CTABC DC xX *3003? ADDRESS OF CONFIGURED FLAG 
000008 1207 QOR1 EQU 8 X¥R1 OF CALLING PROGRAM 002796 3005 1323 CTABP DC X¥*3005! ADDRESS OF SYSTEM TYPE 
OOOO0OA 1208 QR2 EQU 10 XR2 OF CALLING PROGRAM 002798 3006 1324 CTABS DC X'*3006# ADDRESS LAST USABLE STORAGE 
00000C 1209 QR3 EQU 12 XR3 OF CALLING PROGRAM 00279A 3008 1325 CTABN DC x*3008°8 ADDRESS ALT CONSOLE ADD-TYPE 
OOOOODE 1210 QR4 EQU 14 XRG OF CALLING PROGRAM 00279C 3010 1326 CTATE DC xX'*3010! ADDRESS 1ST REAL ENTRY 
000010 1211 OR5 EQU 16 XR5 OF CALLING PROGRAM 00279E 3FFO 1327 CTABF DC X*3FFO? ADDRESS LAST ENTRY 
000012 1212 QOR6 EQU 18 XR6 OF CALLING PROGRAM OO027A0 00 1328 DC X'00!? KEEP READI STORAGE ADDRESS ON WD. BD. 
000014 1213 QR7 EQU 20 XR7 OF CALLING PROGRAM 0027A1 E4UPF3F8C6F1 1329 CTRL1 DC C'tu38Fi'! CONFIGURATION TABLE NAME 
000016 1214 QSVC EQU 22 SVC NUMBER OF CALLING PROGRAM 0027A6 0000 1330 CTRL2 DC X*0000! STORAGE ADDRESS FOR CTRL1 
000017 1215 QRAL EQU 23 RETURN CODE AND LEVEL ENTERED 1331 ALIGN WORD 
1216 INTO SVC ON 0027A8 0O0 1332 CTMNE DC X*'OO? 255 = MAX # ENTRIES IN CONFIG TABLE 
000018 1217 QAV1 EQU 24 AVAILABLE WORD 1 0027A9 FF 1333 CTMNF DC 'FF* 2 BYTE 2 
OOOO1A 1218 OAV2 EOQU 26 AVAILABLE WORD 2 PMT SSeS SCC C CSS SSS CCS OLS S CSS OLS SSC CLC SSC OCL SP SSS ST Le eT S| 
1220 RHA A RK eo ha a oe i oe eo RH ak i tk oe oak ok ok ke ok ic a fe oe fo fc ic koe eek ie de ok fc 2 ok ke ok oc 1335 * CONFIGURATION TABLE FIFLD EXPANSION 
1221 * * 1336 * 
1222 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE START * 1337 ALIGN WORD 
1223 * OF EACH SLOT IN THE DEVICE TABLE TO THE VARIOUS * OO27AA 00 1338 CTDA DC X*'OOo?t DEVICE ADDRESS 
1224 * INFORMATION IN EACH SLOT * OO27AB 00 1339 cCTMNT Dc X*O08 DEVICE TYPE 
1225 * * 0027AC 00 1340 CTCF DC B*'00Q00000! CONTROL FLAGS 
1226 A a a a oo ok ek a tok aR doko tek kok ok tok ik tak i ok tek ek tk ok tk ek kok CK KK 1341 * BIT 0 - US BY 
000002 1227 OAG EQU 2 RETURN ADDRESS IF COND CODE OF 1342 * 1 ~- CHAIN ENTRIES 
1228 * INTERUPT MATCHES THE COND 1343 * 2 ~- LAST USED ENTRY IN TABLE 
1229 * CODE AT OCC 1344 * 3 —- LAST ENTRY IN EACH SECTOR 
000004 1230 OAB EQU 4 RETURN ADDRESS IF CONDITION 1345 * 4& -—- USED BY DCP 
1231 * CODE OF INTERUPT DOES NOT 1346 * 5 - USED BY DCP 
1232 * MATCH CONDITION CODE AT OCC 1347 * 6 - TCS DEVICE 
000007 1233 OCC EQU 7 CONDITION CODE EXPECTED 1348 * 7 - END OF TABLE 
WRU tet et rte tS + s+ CeT TS SSS CSS SS PT SSS CCS CSS STS SCS LSS TSC SCT CSS SCLC STS SSS ILS LL £2 st O0O27AD 00 1349 CTDD1 DC B*00000000! DEVICE DEPENDENT 
PRIM t ESS tere tte S itt rr srt Sete See SST SC CLO CS OCLC SCS SSS SSLO LSS SCL OL TS ft OO27AE 00 1350 CTDD2 DC B'*QO0000000? DEVICE DEPENDENT 
1237 * DATA FOR COMMON SUBROUTINES OO27AF 00 1351 CTDD3 DC B*Q0Q0000000 ! DEVICE DEPENDENT 
PRE ti SS TTT TS STIS SCCCSP SSS SS TSCS LCS SSLOCSCSCSC SSCS SLPS TS SSS TS LSC CLS SL ef 0027B0 00 1352 CTDD4& DC B' 00000000! DEVICE DEPENDENT 
002730 0000 1239 OLYRA DC A (*-* OVERLAY RETURN ADDRESS 0027B1 00 1353 CTDD5 DC BtQQOO0OOO0Or DEVICE DEPENDENT 
LNT et Tt ete TSS SSS SS SL SS SSS OSL SSS SSSL SSCS SOCSCS OCLC LSS TST ITP STS SS ST 0027B2 00 1354 CTDD6 Dc B*'00000000! DEVICE DEPENDENT 
002732 0230 1241 CIMSZ DC X'0230° ADDRESS IN DCP LAST USABLE STORAGE 0027B3 00 1355 CTDD7 DC B*00000000? DEVICE DEPENDENT 
002734 0240 1242 ALTER DC X*O2408 ADDRESS IN DCP ALT CONSOLE ADD-TYPE 0027B4 00 1356 CTDD8 DC B*00000000! DEVICE DEPENDENT 
TDG 3 A He i i a oe oe 2 2 aK KE OK OK oo ko Rok ak kkk ak ok kok ak ke ok ako ke ke tok kok ok ok ke 0027B5 00 1357 CTDDOS DC Bt'000000008 DEVICE DEPENDENT 
002736 180E 1244 AOPTNI DC X' 180E* ADDRESS IN BASIC OF OPTION WORD 1 0027B6 OO 1358 CTDDA DC B* 00000000? DEVICE DEPENDENT 
TQS A HH HA HK HH HR HR EH He RK OK eo He i FC a fC i 2 a i ae af 2 a ie i oe oe ic ae 2k 2 2c kak 2k ak 0027B7 OO 1359 CTDDB DC B*90000000! DEVICE DEPENDENT 
000100 1246 CTNAD EQu 256 # DEVICE ADDRESSES 0027B8 00 1360 CTDID DC X*ooFr DEVICE READ ID RESULTS 
VD] RH KK KKK KK HK HHH KK KKK KK KKK RK KK KKK HK KKK HK HK HK I KK KKK KK KK KK 0027B9 00 1361 CTDI2 pc Xx*oo! DEVICE READ ID RESULTS - BYTE 2 
002738 3D 1248 CDT3D DC X'3D! FLOATING POINT 1362 ALIGN WORD 
002739 3E 1249 CDT3E DC X¥'3F TCS FBG 3 RA RH HARK KK RK KK I KK KK KK RK RE KK KKK OK KK KKK 
00273A 40 1250 CDT40O DC x'4Qr TTY 1364 * CONFIG TABLE MESSAGES = 3820 -384F 
00273B 44 1251 CDT44 DC X*qqe CRT 1365 * CONTROL BLOCK HTOE 
00273cC 45 1252 CDT45 DC x'qaset DISPLAY OO27BA 0001 1366 CNM25 DC xX*0001° HEX DATA 1 BYTES 
00273D 64 1253 CDT64 DC x'6yet PRINTER OO027BC 2763 1367 DC A (CTSEE DATA ADDRESS 
OO0O273E 68 1254 CDT68 DC x*'6s? 4973 PRINTER OO27BE 27CE 1368 DC A(CTEO2 EBCDIC OUT BUFFER —- ENTRY # 
QO273F AO 1255 CDTAO DC X' AO! S/1IO 1369 * CONTROL BLOCK HTOE 
002740 A3 1256 CDTA3 DC X*A3! S/10 0027C0 0010 1370 CTM20 DC A (16) # BYTES HEX DATA 
002741 A4d 1257 CDTA4 DC X* Age S/1I0O 0027C2 0000 1371 CTM21 DC A O). DATA ADDRESS iets 
002742 A8 1258 CDTA8 DC X'aBt S/IO 0027C4K 27D2 1372 CTM22 DC A(CTEO4) BUFFER ADDRES (EBCDIC) 
002743 A9Y 1259 CDTAY DC X'agt S/10 1373 * 
002744 BO 1260 CDTBO Dc x' BO? S/1I0O 1374 * COMMON TABLE ENTRY 
002745 BY 1261 CDTB4 DC X*B4? S/10 0027C6 384C 1375 DC X*384C! 
002746 £E0 1262 CDTEO DC X'EO* COM SYS 0027C8 CSD5E3D9E840 1376 CTEO1 DC C'tENTRY ° 
002747 £E1 1263 ‘ § SY OO0O27CE 4040 1377 CTEO2 DC c?! J 
WADME tr rEr rts tts terre rts PSST eS SSS ST te TS eer Ste TS SS SST CS SSS LS TSS TES 0027D0 6060 1378 CTEO3 DC ct? 
002748 0QO1 1265 CTCO1 DC x*ott CONSTANT 0027D2 4040 1379 CTEO4S DC 1c! J 16 WORDS 
002749 02 1266 CTCO2 DC x*'*oO2! CONSTANT O0O27D4 4O4OKOOUOKOLO4OK 1380 CTEOS Dc 15ct « 16 WORDS 
O0274A O03 1267 CTCO3 DC x*O3° CONSTANT 0027F2 00 1381 CTEO6 DC x*00!8 
OO274B O4 1268 CTCO4 DC x*oagt CONSTANT 1382 * 
O00274C O5 1269 cTCcO5 DC x'o5s' CONSTANT 1383 * 
OO274D 06 1270 cCTCO6 DC x*'o6! CONSTANT 1384 * CONTROL BLOCK OUTIN 
OO2Z74E O7 1271 C&SCO7 DC X*O7! CONSTANT 0027F3 OO 1385 ALIGN WORD 
OO274UF OE 1272 CTC14 DC H'14! CONSTANT 1 BYTE OO27F4 OOCO 1386 X*00CO! 
002750 FF 1273 CTICFF X' FF? CONSTANT 255 OO27F6 2800 1387 CMD20 DC A(CMD21 
002751 OO 1274 LIGN WORD OO27F8 282A 1388 DC A(CMD22 
002752 0000 1275 cCTWOO D X*0000! CONSTANT DECIMAL 00 1 WORD OO0O27FA 0002 1389 Dc A(2 
002754 =000D 1276 CTW13 DC X*OO00D® CONSTANT DECIMAL 13 1 WORD 0027FC 0001 1390 DC A(1 
002756 0010 1277 CTW16 DC x'0010° CONSTANT DECINAL 16 1 WORD 1391 * OUTPUT 
002758 OOFF 1278 CTWFF DC X'OOFF® CONSTANT 1 WORD OO27FE 3821 1392 Cc X*3821' 
1279 LIGN WORD 002800 C1ID3E3C5D9D5C1E3C 1393 CMD21 DC C*ALTERNATE CONSOLE DEVICE ADDRESS AND TYPE® 
1280 * ENTER ALT CONSOLE 002829 00 1394 Cc X*'oOo? 

00275A 00 1281 CAEAD DC x'oo? ADDRESS - WORD 1395 * INPUT 

00275B 00 1282 CAEAE DC x'oOo! ADDRESS - BYTE 1396 ALIGN WORD 

00275c 00 1283 CAETY DC x'oor TYPE - WORD 00282A 00 1397 CMD22 DC X'oo! ADDRESS 

00275D 00 1284 CAETZ DC x*oo? TYPE - BYTE 00282B 00 1398 CMD23 DC x'o0! TYPE 
1285 * 00282c 00 1399 DC x*o0o? 
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O38F2 - CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGF 07 O38F2 - CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE O7A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1400 * O0028E6 3844 1517 DC X'3844! 
1401 * CONTROL PLOCK OUTPUT OO28E8 C5SDIDSDEDIbE0D9IC5C 1518 CTI16 DC Ct ERROR-READ ID D.A.= ! 
00282D 00 1402 ALIGN WORD OO28FC 40404040 1519 CTI17 DC ct DEVICE ADDRESS 
00282E 00C0 1403 DC x'ooco! 002900 40C3C37E4040 1520 DC c' cc= ! 
002830 2836 1404 CMD25 Dc A (CMD26) 002906 4040 1521 CTI18 DC ct..4 CONDITION CODE 
002832 FFFF 1405 DC A (~-1) 002908 00 1522 «00! 
1406 * OUTPU 002909 00 1523 ALIGN WORD 
002834 3829 1407 pc X¥'38290 OO290A FOF1 1524 CTI20 DC cyort EBCDIC CHARACTERS 
002836 D5D640C4C5E5C9C3C 1408 CMD26 DC C'NO DEVICE! 00290C FOF2 1525 CTI30 DC Ct 02! 
00283F 00 1409 DC x* 00% Q0290E FOF3 1526 CTI35 DC c'o3! 
aid # 003912 FOPS 1238 CTT45 DE | GHOSE 
1 * pone BLOCK OUTPUT 
1412 ALIGN WORD 002914 FOF6 1529 CTI50 De C'o6! 
002840 00C0 1413 DC K 00cO0! 002916 FOF? 1530 cfI55 C!Q7! 
002842 2848 1414 CMD30 DC A (CMD31) 1531 * CONTROL BLOCK HTOE 
002844 FFFF 1415 DC A (7-1) 002918 0002 1532 CTI60 DC X*0002' HEX DATA 2 BYTES 
1416 * OUTPUT 00291A 28D8 1533 DC A(CTIDD DATA ADDRESS 
002846 3832 1417 DC x*3832! 00291C 28FC 1534 DC A (CTI17 EBCDIC OUTPUT BUFFER - DEVICE ADDRESS 
002848 DV7DIDECTDICTD4DHC 1418 CMD31 Dc C* PROGRAMMER OR CE CONSOLE? V3 5 HK eRe a ee a KH eK He He ee ee a 2h oe a ae ee he oe he 2 he fe ie ie a 2 fe fe i a Ke ak 
002860 Q0 1419 DC 00! 1536 * PROGRAM START 
G20 AK ee ae ei oe a a ie a ee a a a a a a eR RO IR RRO I A RR II te OK a ok a ak oak aa Q0291E 5000 1537 CYRID NOP 
1421 * END OF CDATA 002920 77C4 1538 CYIO1 MYVW R7,R6 SAVE CONTENTS OF R7 TO RETURN 
1TO22 eo oo oo oe oe ook kk et ko a ak RR Rk fk ok ai i a kak i of a ak ok fe ake fe ea afc ae oi ak ae ic ade coc 002922 4020 28DE 0000 1539 CYIO5 MVWI 0,CTIDF RESET DEVICE FOUND FLAG 
002861 00 1423 ALIGN WORD 002928 4020 28DcC 9000 1540 MVWI 0O,CTIID RESET DEVICE ID 
MLM LS SSCS TPES LSC SCLC CCC SLOSS LS SL TTS S SCS SSL SL SSCS SS CSS SSS TTL SLL 00292E 4020 2772 0000 7541 MVWI CC RESET CC ERROR FLAG 
1426 * 1542 * START READ DEVICE ID 
1427 * 002934 4724 28€C 1543 MVA CTI0O4, 
1428 * BEGIN COMMON SUBROUTINES 002938 6009 1544 SVC RID START READ ID 
1829 * 1545 * READ ID COMPLETE AND CC=7 
1430 =* 00293A 8828 28D6 28DC 1546 MVW CTI05,CTIID RETAIN ID RETURNED 
TZ 2 ea ae a he a ee A eK a He i a ie Re A A RR IK AK HK BR RR OR I ORI OK OK 002940 4020 28DE 0001 1547 MVWI 1,CTIDF SET DEVICE FOUND FLAG 
T4333 ko Ra a te ok tok a Fo a OR RRO Tok a ik kkk ako tek kkk 40k 002946 4020 28C8 0000 1548 MVWI O,CTIT2 RESET 2ND TRY FLAG 
1434 * PROCEDURE SEARCH MEM BER=CSEARCH 00294C 506C 1549 J CYT J TO END OF PROC 
1435 * SEARCH CONFIGURATION TABLE FOR A DEVICE ADDRESS F550 a He eal ea 2 Oe he he He ee He he He He HK He He ee He Ee I a i oe He he He Me IK He ae he ee he ee I ee OK Ok ee ie ea ek 
1436 * R7 CONTAINS RETURN TO ADDRESS 1551 * RETURN AFTER RID - CC NOT = 7 OR CC=7 FROM CONTROL BLOCK 
1437 * INPUT: 1552 * TEST CONDITION CODES RETURNED 
1438 * CTSA = DEVICE ADDRESS TO SEARCH FOR OO294E 1334 1553 CYI10 JEV CYI4o0 J ON EVEN 
1439 * CTSEN = ENTRY # TO START SEARCH AT 002950 1723 1554 JCY CYI30 J ON CARRY 
1440 * CBPA3 = 1 T0 BYPASS A3 OEMIA ENTRIES 002952 6806 2958 1555 BOV CYyr20 J ON OVERFLOW 
T44t * CBPAY = 1 TO BYPASS AW KITE ENTRIES 1556 * DEVICE NOT ATTACHED 
W442 * OUTPUT: 002956 5067 1557 J CyYI70 
1443 * CTSEF = 0 IF ADDRESS IS NOT FOUND 1558 * ERROR ON RID TO AN ADDRESS 
T44u * CTSEF = ENTRY # IF ADDRESS FOUND 1 -63 1559 * BUSY 
1445 * CTSEA = START ADDRESS OF ENTRY IF FOUND 002958 402F 28C8 0001 1560 CYI20 CWI 1,CT1IT2 cc=1 
1446 PLIES ETS REEL TA TRAST SAA SSSA SSESESS SEMESTER ESERES CSOT ASE ESTEE 00295F 1012 1561 JE clI25 J IF 2ND cCc=1 
002862 1447 CSRCH FOU 1562 * 1ST CC=1 FOUND 
002862 6908 2790 1448 CXSO1 MVW CTAB CONFIGURATION TABLE ADDRESS 002960 4020 28C8 0001 1563 MVWI CTIT2 SET 2ND TRY FLAG 
002866 C260 0002 1449 MVB fRly 24 £2 R2 = # ENTRIES IN TABLE 002966 4724 28CC 1564 MVA C&IO4,R7 
OO0286A 6E08 2764 1450 MVW ENTRY # TO START SEARCH AT 00296A 6008 1565 svc RESET RESET DEVICE WITH CC=1 
OO0O286E 6E0QD 2762 1451 MVW R65 SEN, Rb FIRST ENTRY FOUND # 1566 * WAIT LOOP AFTER RESET 
002872 EE25 2756 1452 MW crhié, R6 00296C 4020 28CA 0000 1567 MVWI CTICT RESET LOOP COUNTER 
002876 7628 1453 AW R1 = ADDRESS OF ENTRY TO START SEARCH 002972 6002 1568 CY¥YI22 SVC TOLE 200 USEC DELAY 
002878 8063 275F 1454 CXSO2 CB crsh2, (R1) 002974 4029 28CA 0001 1569 AWI CTICT INCREMENT LOOP COUNTER 
00287C 100B 4455 JE J IF ADDRESS FOUND 0OO0297A 402F 28CA 0190 1570 CWI 460 CTICT 
OO0287E 7921 0010 1456 CXSO3 AWI 56° R41 INCREMENT ADDRESS 002980 14F8 1571 JLT YI52 J TO CONTINUE WAIT 
002882 4029 2762 0001 1457 AWI 1,CTSEF INCREMENT ENTRY # 002982 50CF 1572 J CYTO S J TO RETRY READID 
002888 CA24 2762 1458 CW CTSEF, R2 1573 * 
00288C 1CF5 1459 JGE CxS02 J IF MORE ENTRIES TO CHECK 1574 * rae CC=1 FOUND — ERROR 
OO28B8E CE25 2762 1460 MVWZ CTSEF,R6 O=ADDRESS NOT FOUND IN CONFIG TABIF 002984 4020 28C8 0000 1575 CYI25 MVWI CTIT2 RESET 2ND TRY FLAG 
002892 5016 1461 J cxs0s Q00298A 8828 290A 2906 1576 MVW ChE30. CT1I18 
1462 * ENTRY FOUND 002990 8028 2748 28DB 1577 MVB CTCO1, ,CTICC 
002894 6E08 2770 1463 CXSO4 MVW CBPA4,R6 CK BYPASS A&W KITE FLAG 002996 5031 1578 J CYT60° 
002898 1004 1464 JZ exso5 002998 6806 29AA 1579 CYI30 BOV CYI35 
1465 * BYPASS A4 KITE ENTRIES 1580 * BUSY AFTER RESET 
00289A 806B 2741 0001 1466 CB CDTA4, (R1,1) KITE DEVICE TYPE = A4 00299C 8828 290C 2906 1581 MVW CTI30,CT1I18 Cc=2 
QO028A0 10EE 14€7 JE cxso3 BYPASS & CONTINUE SEARCH 0029A2 8028 2749 28DB 1582 MVB CTCO2, CTIcCc 
OO028A2 6E08 276E 1468 CXS0O5 MVW CBPA3, R6 CK BYPASS A3 OEMIA FLAG 0029A8 5028 1583 J CYI60 
O0028A6 1004 1469 JZ CxsS06 1584 * COMMAND REJECT 
1470 * BYPASS A3 KITE OFMIA ENTRIES OO29AA 8828 290E 2906 1585 cCYI35 MVW CTI35,CT118 Cc=3 
0028A8 806B 2740 0001 1471 CB CDTA3, (R1,1) OEMIA DEVICE TYPE = A3 0029B0 8028 274A 28DB 1586 MVB crco3, CTICC 
OO28AE 10E7 1472 JE Ccxso3 BYPASS & CONTINUE SEARCH 0029B6 5021 1587 J CyI 
1473 * BYPASS 3D FLOATING POINT ENTRIES 0029B8 1710 1588 CYT40O JCY C¥TS0 
0028B0 806B 2738 0001 1474 CXSO6 CB CDT3D, (81,1) FLOATING POINT DEVICE TYPE = 3D OO029BA 6806 29CC 1589 BOV CYT45 
0028B6 10E3 1475 JE CxS03 BYPASS & CONTINUE SEARCH 1590 * abr e cee yusReP 
1476 * BYPASS EO CON SYS ENTRIES OO29BE 8828 2910 2906 1591 MVW CTI4O Cc=4 
0028B8 806B 2746 0001 1477 CB CDTEO, (R1,1) COM SYS DEVICE TYPE = EO 0029C4 8028 274B 28DB 1592 MVB CTCO4, ,CTICC 
0028BE 10DF 1478 JE Cxs03 BYPASS & CONTINUE SEARCH QO029CA 5017 1593 J CYI6 
1479 * 1594 * INTERFACE DATA CHECK 
0028C0 690D 2760 1480 CXSO8 MVH R1,CTSEA 0029CC 8828 2912 2906 1595 CYI45 MVW CTI45,CTI18 cc=5 
0028C4 68E2 0000 1481 B Ri) RETURN 0029D2 8028 274C 28DB 1596 MVB cTCcOo5)cTIcc 
VG QD A eke eR Be a Oe he HH eo ke oe ae ae fe fe ho a ae te oe ko ok ok tok oo do kok tek kok foe ae dake ee ak 0029D8 5010 1597 J CYI60 
1483 * END OF SEARCH PROCEDURE O0029DA 6806 29EC 1598 CYI50 BOV cyr55 
VU BY Xk sk oe oa Re i a a a to a a a OR OK I OR a RIOR 2 a aif kok ie ae atk oe ak ak 2k 1599 * CONTROLLER BUSY 
WRN QE LETISSOCSOCSSSS£ OSES SSL SSS SSL S SSCS SESS S SSS CCS SS SCS SSL ST SSL SS OO0O29DE 8828 2914 2906 1600 MVW CTI50,CT™18 CC=6 
1437 * PROCEDURE READID MEMBER=CREADID OO29E4 8028 274D 28DB 1601 ave CTCO6, ,CTICC 
1488 * READ DEVICE ID OO29EA 5007 1602 CYI 
1489 * DEVICE ADDRESS LOCATED AT CTIDA 1603 * SATISFACTORY 
1490 * DEVICE ID RETURNED IN CTIID OO29EC 8828 2916 2906 1604 CYI55 MVW CTI55,CT1I18 Cc=7 
1091 ok a OO to qk tok aka kk ek ic ko fe ok ok a ok ok ek tte ok kok ek OO29F2 8028 274E 28DB 1605 MVB crco7, CTICC 
1492 * DATA DEFINITION 0029F8 5000 1606 J 
0028C8 0000 1493 CTIT2 Dc X'OO000! 2ND TRY FLAG 1607 * DC Nor PRINT ener IF ANETTA oon teeter 
0028CA 0000 1494 CTICT DC K' 00005 WAIT LOOP COUNTER OO29FA 402F 276C 0001 1608 CYI60 CWI '0001',CINCF IF INITIAL CONFIGURATING 
1495 * CONTROL BLOCK FOR SVR RID AT AYIO4 O002A00 1012 1609 JE eyt BY PASS CC ERROR PRINT IN INIT CONFIG 
0028CC 28D9 1496 CTIO4 DC A(CTIDA DEVICE ADDRESS POINTER 1610 * DO NOT PRINT ERROR, DO SET ERROR FLAG IF 1ST PASS CHECK OVERLAY 
OO28CE 2945 1497 DC A(CYI10 ERROR RETURN ADDRESS O0O2A02 4O02F 276A 0001 1611 CWI 1,PASS1 
0028D0 0000 1498 DC A (0 RESERVED 002A08 1008 1612 JE CYI65 
0028D2 0000 1499 DC A(O RESERVED 1613 * CONVERT DEVICE ADDRESS TO EBCDIC 
0028D4 0000 1500 DC A (0 ADDRESS OF SVC LAST USING OO2ZAQ0A 4724 2918 1614 MVA CTI60,R7 
0028D6 0000 1501 CTIO5 DC x*'o0000° RETURNED DEVICE ID OO2ZA0E 601A 1615 SVC H 
1502 * 1616 * PRINT ERROR MESSAGE 
0028D8 00 1503 CTIDD DC x*oo' DUMMY TO CONVERT DEVICE ADD TO EBCDIC 002810 8028 28D9 28DA 1617 MVB CTIDA,CTICA DEVICE ADDRESS FOR R3 
0028D9 00 1504 CTIDA Dc X'oo! DEVICE ADDRESS (BYTE 002A16 6B08 28DA 1618 MVW CTICA,R3 R3 = DEVICE ADDRESS & CC AFTER ERROR 
OO028DA 00 1505 CTICA DC xX*00° DEVICE ADDRESS FOR R OO2A1A 4724 28E2 1619 MVA CTI15,R7 
0028DB 00 1506 CTICC DC x00! CONDITION CODE FOR R3 QOO2A1E 6000 1€20 SVC ace PRINT *ERROR...CC = ..! 
1507 ALIGN WORD 002A20 4020 2772 0001 1621 CYI65 MVWI ERR SET CC ERROR FLAG 
0028DC 0000 1508 CTIID DC X' 0000! RETURNED DEVICE ID 1622 * END prots< - RETURN 
0028DE 0000 1509 CTIDF DC X'0000' DEVICE FOUND ON ADDRESS FLAG 002A26 68C2 0000 1623 CYI70 B 6 
1510 * 1624 ROOK OR tO oi a lok ioiok iiok doko oo tatot taki ted fog iotokogk tote tek 
1511 * CONTROL BLOCK OUTPUT 1625 * END PROCEDURE READID 
1512 ALIGN WORD 1626 OO iO kok oli oii io tok dick otk iiaioi gai io ok oka a tok giao kok 
0028E0 0O0CcO 1513 Dc x'ooco: 1628 a OC dio Ro iO Og ii iokioigarotokokk iaiatokok ei ded io iete ge deg ge ot 
OO028E2 28E8 1514 CTI15 Dc A (CTI 16) 16429 * PROCEDURE CDEVT 
OO028E4 FFFF 1515 DC A pet 1630 * FIND DEVICE TYPE FROM RESULT OF READID 
1516 * OUTPUT MESSAGE 1631 * INPUT R5 = DEVICE TYPE (OPTIONAL) 
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- CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE 09 
OBJECT TEXT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
1804 1862 JNZ  CACcOos B IF NO ALT CONSOLE 

1863 * 0000 = CE CONSOLE 
4724 2842 1864 MVA CMD30,R7 
6000 1865 SVC OUT PRINT 'PRAGRAMMER OR CE CONSOLE 
500E 1366 3 CAC10 
1867 * ALTERNATE CONSOLE ENTERED 
8028 282A 1868 CACOS MVB CMD22,CAEAE ADDRESS 
8028 2828 1869 MVB CMD23,CAETZ TYPE 
6FO3 2CD6 1870 BAL CADTY,R7 CALL CHECK ADDRESS VS TYPE 
1671 * R6 = 1=OK, O=ERROR 
7E06 0001 1872 CHI 1,R6 
1003 1873 JE chc10 J ENTERED OK 
16074 * DEVICE ENTERED NOT FOUND 
4724 2830 1875 MVA  CMD25,R7 
6000 « 1876 svc OUT PRINT 'NO DEVICE? 
1877 * ALT CONSOLE ENTERED OK OR NONE ENTERED 
882C 282A 1878 CAC10 MVW CMD22,CTABN* ALT CONSOT.E ADD-TYPE INTO TABLE 
882C 282A 1879 MVW CMD22,ALTER* ALT CONSOLE ADD-TYPE INTO DCP 
6812 2cD2 1880 B CACRA* RETURN 
1881 PSST ST STL ELS S TE ST SSS FSS SST ST SSS STS SSS PSS SSS SSCS SSS SS ST Ses eet ess 
0000 1882 CACRA DC A (*2*) RETURN ADDRESS 
PBB 3 WA AM HM MM MH HH KH He He He Re HH HK HE He fe ee ic he i fe le ee fe fe fc fe hc fe ie of ok kc ie ak ok 
1804 * END OF CACON PROCEDURE 
VB B5 Hm A Me He ee Ke eK KK He fe fe 2K 2K 2K a ic ee oi ae oe oe fe ac coh afc oe oo af ok a fe ok ee kc ae kc oc 
1887 Pe StS SSL ESE SSE SSS SES SSS SFP S SL SSS SSE LS SESS SPSS SS SSP SSPE TSS SPS et es 
1888 * PROCEDURE CADTY MEMBER=CADTY 
1889 * CHECK ALTERNATE CONSOLE ADDRESS VS TYPE 
1890 * INPUT CAERA = RETURN ADDRESS 
1891 * CAEAD = ADDESS 
1892 * CAETY = TYPE 
1893 * OUTPUT R6 = 0=ERROR, 1=OK 
1894 * 4 = READ ID’ RESOLT 
VBQ5 Hm He He Hee he He ie a a oe Ke ee ee He a ee fe a 2 he oe oe ok oh ke a ok ok oc ok ee kk ok ok kok 
1896 * DATA DEFINITIONS 
0000 1897 CAERA DC 100008 RETURN ADDRESS 
FBG GB BRR AH RK HK KK KK HH KKK KK KK ee Ko hc ie ie a ie 2 ae eae ok fe of oe ake ke te ake of kc of ic oe ak kc kc akc 
1899 * PROGRAM START 
6FOD 2CD4 1900 CADTY MVW  R7,CAERA RETURN ADDRESS 
8828 275A 1901 MVW CABAD,CTIDD DEVICE ADDRESS 
6F03 2915 1902 BAL CYRID,R7 CALL READ ID 
1903 * ID RETURNED IN CTIID 
1994 * COMPARE READ ID VS DEVICE TYPE 
6CO8 28DC 1905 MVW CTIID,R4 RG = READ ID FOR RETURN 
74C4 1906 MVW R4,R6E R6 = ID FOR BAL 
3582 1907 , SRL 16/R5 ZERO R5 
6FO3 2C18 1908 BAL cCDEVT,R7 CALL FIND DEVICE TYPE 
1909 * TYPE RETURNED IN R6 
CE24 275¢ 1910 CW CAETY,R6 CHECK TYPE 
1812 1911 JNE  CAD20 
C624 273A 1912 CB CDT4O, RE TTY 
100c 1913 JE CAD10 
C624 2738 1914 CB CDT44 RE CRI 
1009 1915 3 CAD10 
C624 273¢c 1916 CB CDT45 ,R6 DISPLAY 
1006 1917 JE CAD10 
C624 273D 1918 CB CDT64,R6 PRINTER 
1003 1919 JE CAD10 
C624 2732 1920 CB CDT68, R6 4973 PRINTER 
1803 1921 JNE  CAD20 B IF NOT VALID TYPE 
1922 * VALID ADD VS TYPE 
4624 0001 1923 CAD10 MVWI 1,R6 
5002 1924 i cAD30 
1925 * INVALID ADD VS TYPE 
4624 0000 1326 CAD20 MVHI 0,R6 
6812 2cD4 1928 CAD30 B CAERA* RETURN 
1 QQ WAH HM He A He He He he He he Ke He ee ee ee ie OK RE he 2 ee a ok he ok eo oe ie 2 ie oe coi ok ok 
1930 * END OF CADTY PROCEDURE 
1931 PP PPS tS SSS SSS SLSS RS SL SS SPS SSS SSS SSS SL SSS SS SS SS SS CeCe ee ee ee St St 
4.333 RH KH HM eH Re ee he ee ae ee eK 3 he ok he he ee He eH ee che a Re oh ah fe ae ac ae 3h of oe ce ot afk oh i he of of 2h he ake ote ke ee ote ok 2k 
1934 * PROCEDURE STYPE 
1935 * FIND SYSTEM TYPE 
1936 * DIAG X'O4" INSTRUCTION RETURNS RO = X'0002' FOR BELLE 4952 
1937 * X¥'0003" FOR ELBERTA 4953 
1938 * X'0005' FOR CLING 4955 
1939 * RETURN R1=22 FOR BELLE 4952 
1540 * R1=23 FOR ELBERTA 4953 
1941 * R1=25 FOR CLING 4955 
1942 * RETURN TO NEXT INSTRUCTION 
1D YB HAM Hea eh he ae He he He oe he he Bie fe ae he ae fe fe eh he ae ae ee ae fe ae ae hee ae fe oe of af 2 he ae fe fe ae fe ae fe fe ae he fe ae ofc tee fe fe af fe ae ae ote ae oe ae fe ae oe 
6504 1944 STYPE DIAG x'o4! DIAGNOSE SYSTEM TYPE 
F002 1945 CBI xXt02',RO 
1004 1946 JE STYP5 
F003 1947 CBI x'03',RO 
1004 1948 JE STYP7 
1949 * 4955 = *0005! 
0925 1950 MVBI x?25t, R41 
5003 1951 J STY PO 
1952 * 4952 = "0002! 
0922 1953 STYP5 MVBI x'22',R1 
5001 1954 J STYP9 
1955 * 4953 = '0003! 
0923 1956 STYP7 MVEI xX'23',R1 
68E2 0000 1957 STYP9 B R7) RETURN TO CALLER 
1958 BEKKKKKKKKK ND OF SYSTEM TYPE PROCEDURE ®#®% KK KRKK HK KK RK KK KK KKK KKK 
1959 * 
13e4 # 
1962 PSSST TSS SST SSS SSCL SSS SS LL SSE SEL SL SESS SSS SSS STE SS SPSS SSS SS SCS SSS SP SCL SL St es 2 4 
1963 * PROCEDURE CDCPT 
1964 * CHECK FOR DCP TERMINATE BIT ON - BIT 0 OPTION WORD 1 
1965 IR fe He he He ae he ee oe he He ae a he ae fe oe oh 2c oe ae ae ae ae oe 2 fe ote fk he aie ae af ie ae fe ai af af ake ake ak ote fe of ae ote he fe fe ok fe oe ofc ae 2h ah ake ake fe ste ote af ofc ok hc ake fe 3c ok 
0000 1966 CDCPR DC X'0000! RETURN ADDRESS 
1967 PSPS EPL SS SS SL SEL SSS SSS STS ES SSC SSS SSS SSS SS SSL LS SS PCS SSS SSS SS SCS LC SSC eS SL Se SS 
6FOD 2D3A 1968 CDCPT MVW  R7,CDCPR SAVE RETURN ADDRESS 
6F08 2736 1969 MVW  AOPTN1,R7 ® OF OPTION WORD 1 IN BASIC 
4FOO 1970 TBT R7,0) BIT 0 = DCP TERMINATE PROGRAM 
1001 1971 ; JZ Dcbu GO 
6007 1973 ‘ SVC TERM TERMINATE PROGRAM 
6812 2D3A 1975 CDCPU B CDCPR* RETURN 
1976 PSP TELS ESL SES SSS SS SS SL TSS LS SSS SS SSS SPC eS Pe CSL SSeS LS SS SPS Se SSL Se SS SSS TS SSL LS 2S SF 
1977 * END CHECK FOR DCP TERMINATE 
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He RC He A He A HA A HR A A A HE RR RAKE AEE KE EEE EEE AE SSE SH 
2 Re A Ae ee Ae A A A AC A A RHO HO I RO A ROOK OK EE EE KE 
* PROCEDURE WANDT 

: PURPOSE - Bi WRITE CONFIGURATION TABLE TO DISK AND TERMINATE. 


B ERMINATE. 
HMC A A HR HH 2 HRC i I eR MA Re a a RH a 


WANDT MVA CTRL5,R7 
SVC WRITI WRITE DISK 


CTERM SVC TERM TERMINATE PROGRAM 
Be He He He Hee Be he He Me he ae He He He He Me He He He He he He He He He He He Me He ee He He He He ee Me He he le he ee he oh ae ee ee ee ee aK KK KKK eH & 


HH HH HH HH KH MH HH RH HH HK HK RK KK KKK KKK ARKH KEKE KK EKER ES OH 

* END OF COMMON SUBROUTINES 

MM He He 3 he He HH eH HM HH He HHH He MMH HH He He He He He He He He He He HH Me Hee He He He He He ee He he ee oe a KKK eK 

MM HH HH RK HHH He He HH KKK KKK KEKE KE EKER KE KESE EEK 
END CYROO END OF PROGRAM 

HE He HEM ee He eM HH HH MH HH HHH HH HEH He He HH eH he ee He Hee ee Me he he Me ae ok ae oe ae ee ee ek KH 


* END OF CONFIGURATION PROGRAM 
HE HE He Me HH a He Me HH HH HH HH He KR KKK RR KK KKK KK KKK KE 
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ALTER 
AOPTN1 
BACK6 
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CACRA 
CACO5 
CAC 10 
CADTY 
CAD10 
CAD20 
CAD30 
CAEAD 
CAEAE 
CAERA 
CAETY 
CAETZ 
CBPA3 
CBPAY 
CCERR 
CCERREND 
CCERRHTE 
CDCPR 
CDCPT 
CDCPU 
CDEVT 
CDTA3 
CDTA4 
CDTEO 
CDT3D 
CDT40 
CDT 44 
CDT45 
CDT64 
CDT68 
CDVRA 
CDVR1 
CDVT1 
CEDN1 
CTAAA 
CIAA1 
CIAA2 
CIAA3 
CIAA4 
CIAAS 
CIAA8 
CIAA9 
CIAO3 
CIAO4 
CIAOS5 
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CIA15 
CINCF 
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CMD21 
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LOCATION (00002734) 
LOCATION (00002736) 
LOCATION (00002696) 


X LOCATION (00002c8A) 
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HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 
HEX 


EX 
19 
EX 


LOCATION (00002cCD2) 
LOCATION (00002CA6) 
LOCATION (00002CC2) 
LOCATION (00002CD6) 
LOCATION (00002D14) 
LOCATTON (00002D1A) 
LOCATION (00002D1E) 
LOCATION (0000275A) 
LOCATION (0000275B) 
LOCATION (00002cD4) 
LOCATION (0000275C) 
LOCATION (0000275D) 
LOCATION (0000276E) 
LOCATION (00002770) 
LOCATION (00002772) 
LOCATION (0000266C) 
LOCATION (00002670) 
LOCATION (00002D3A) 
LOCATION (00002D3C) 
LOCATION (00002D4a) 
LOCATION (00002C18) 
LOCATION (00002740) 
LOCATION (00002741) 
LOCATION (00002746) 
LOCATION (00002738) 
LOCATION (0000273A) 
LOCATION (00002738) 
LOCATION (0000273C) 
LOCATION (0000273D) 
LOCATION (0000273E) 
LOCATION (00002C14) 
LOCATION (00002C 16) 


LOCATION (0000277A) 
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HEX 
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LOCATION (00002726) 
LOCATION (000023A4) 
LOCATION (000023B8) 
LOCATION (000023C0) 
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LOCATION (00002706) 
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LOCATION (00002250) 
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LOCATION (00002344) 
LOCATION (00002362) 
LOCATION (00002526) 
LOCATION (0000276C) 
LOCATION (000027F6) 
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LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 


LENGTH (6) 


LENGTH (6) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (1) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (1) 
LENGTH (6) 
LENGTH (1) 
LENGTH (6) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (2) 
LENGTH (2) 


LENGTH (41) 
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LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (9) 
LENGTH (2) 
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LENGTH (4) 
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88 crM2 ADDRESS. HEX LOCATION(00001DCC) IN CSECT(O38F2  ) LENGTH(2) i454 
apy 1288  CTSEA ADDRESS. HEX LOCATION (00002760) IN CSECT(038F2  ) LENGTH(2) 
92 CTN2A ADDRESS. HEX LOCATION (00001DD2) IN CSECT(O38F2 ) LENGTH(26) a eae B96 2 800. 1U80)  aaaancwnn ce - 
; . N ECT (O 
98 CTM36 ADDRESS. HEX LOCATION (00001DFO) IN CSECT(O38F2 ) LENGTH(2) eee 1361 ce un ee ee aan 
SS. HEX LOCATION 2) IN CSECT(O38F2 ENG 
102 cTM31 ADDRESS. HEX LOCATION (00001DF6) IN CSECT(O38F2 ) LENGTH(43) aes 90 1451 1457 4458 ted Sale ease Bs 
: CSEC 
108 = CT N32 BDDRESS. HEX LOCATION (00001E24) IN CSECT(O38F2 ) LENGTH (2) oo Ee Cs ee ee aerate Epon eee § @ eeneen Ce) 
; CATION IN CSEC F 
112 CTM33 ADDRESS. HEX LOCATION (OQOO1E2A) IN CSECT(O38F2 ) LENGTH (46) ee eee i 7 pea ena ' s a fe) DENSI) 
: 52) IN CSECT(038F ENG 
118 = CTH34 ADDRESS. HEX LOCATION (OQOQ1ESC) IN CSECT(O38F2 ) LENGTH(2) ieee 370381 tos and OY oo bebonce ey : es = ; pees) 
. CSECT (O38F G 
122. CTM35 ADDRESS. HEX LOCATION(00001E62) IN CSECT(O38F2 ) LENGTH(43) 510.327.1452 ( a se 
118 1181 CUDA ABSOLUTR. HEX VALUE(00000000) 
128 © CTN36 ADDRESS. HEX LOCATION (00001E90) IN CSECT(O38F2 ) LENGTH (2) 513 
576. 639 1195  CUDRI ABSOLITE, HEX VALUE (0000000) 
132 CTM37 ADDRESS. HEX LOCATION(00001E96) IN CSECT(O38F2 ) LENGTH(38) 514. 530 
128 1182 cupt ABSOLUTE. HEX VALUE (00000001) 
133. CTH38 ADDRESS. HEX LOCATION(QOOO1EBC) IN CSECT(O38F2 ) LENGTH(1) 5 36 
569. 634 1454 = -Cxso2 ADDRESS. HEX LOCATION (00002878) IN CSECT(O38F2 ) LENGTH(4) 
136 CT N39 ADDRESS. HEX LOCATION(OVOO1ECO) IN CSECT(O38F2  ) LENGTH(1) 1459 
569 1456  cxso3 ADDRESS. HEX LOCATION (0000287E) IN CSECT(O38F2 ) LENGTH(4) 
141 oCTMY ADDRESS. HEX LOCATION (00001EC4) IN CSECT(O38F2 ) LENGTH(2) 1467. 1472-1475 
708 1463 cxso4 ADDRESS.. HEX LOCATION (00002894) IN CSECT(O38F2 ) LENGTH(4) 
147 CT MGA ADDRESS. HEX LOCATION(OQOO1ECE) IN CSECT(O38F2  ) LENGTH(32) 1455 
101 1468  cxso5 ADDRESS. HEX LOCATION (000028A2) IN CSECT(O38F2 ) LENGTA(4) 
150 CTM4B ADDRESS. HEX LOCATION (OQOQO1EEF) IN CSECT(O38F2 ) LENGTH(1) 1464 
142. 189 1474 -CXS06 ADDRESS. HEX LOCATION (000028B0) IN CSECT(038F2 ) LENGTH(6) 
200 crMac ADDRESS. HEX LOCATION (QOQOO1FE4) IN CSECT(O38F2 ) LENGTH(2) 1469 
578 1480  cxs08 ADDRESS. HEX LOCATION (000028C0) IN CSECT(O38F2 ) LENGTH(4) 
206  cTMuD ADDRESS. HEX LOCATION(00001PEE) IN CSECT(O3@F2 ) LENGTH (32) on eee ee aaa Ganon ee ot 
; 0 LENGTH 
156 cr 44 ADDRESS. HEX LOCATION(OOQOO1EF4) IN CSECT(O38F2 ) LENGTH(2) 496 ( P PEnGEE 2) 
635 1539 cYI05 ADDRESS. HEX LOCATION (00002922) IN CSECT(O38F2 ) LENGTH(6) 
160 CTM42 ADDRESS. HEX LOCATION(QOQO1EFA) IN CSECT(O38F2 ) LENGTH(41) 1572 
156 1553. CYI10 ADDRESS. HEX LOCATION(0000294E) IN CSECT(O38F2 ) LENGTH(2) 
167 CTM43 ADDRESS. HEX LOCATION (00001F3E) IN CSECT(038F2  ) LENGTH(2) 1497 
698 1560  cYI20 ADDRESS. HEX LOCATION(00002958) IN CSECT(O38F2 ) LENGTH(6) 
171s cr M44 ADDRESS. HEX LOCATION(00001F44) IN CSECT(038F2 ) LENGTA(41) 1555 
167 1568  cYI22 ADDRESS. HEX LOCATION (00002972) IN CSECT(038F2  ) LENGTH(2) 
188  CTNYS ADDRESS. HEX LOCATION (00001FB6) IN CSECT(O038F2  ) LENGTH(2) 1571 
rat 1575. cy125 ADDRESS. HEX LOCATION (00002984) IN CSECT(O38F2  ) LENGTH(6) 
194 cTM46 ADDRESS. HEX LOCATION (00001FCO) IN CSECT(038F2 ) LENGTH(32) 1561 
188 1579 cYI30 ADDRESS. HEX LOCATION (00002998) IN CSECT(O38F2 ) LENGTH(4) 
178 = CT. M48 ADDRESS. HEX LOCATION (00001F86) IN CSECT(O38F2 ) LENGTH(2) 1554 
55 1565 cYI35 ADDRESS. HEX LOCATION (000029AA) IN CSECT(O38F2 ) LENGTH (6) 
182 cTNU ADDRESS. HEX LOCATION(00001F8C) IN CSECT(O38F2  ) LENGTH(39) 1579 
178 1588  CYI4O ADDRESS. HEX LOCATION (000029B8) IN CSECT(O38F2 ) LENGTH(2) 
cy awe Bei ree ee ere erne La REen a) 1595 C¥I45 "RBDRESS. HEX LOCATION (000029CC) IN CSECT(O38F2 LENGTH (6 
218 CTM5A ADDRESS. HEX LOCATION(0000201C) IN CSECT(O38F2 ) LENGTH(54) 1589 ¢ ( (6) 
542 1598  CYIS50 ADDRESS. HEX LOCATION(000029DA) IN CSECT(O38F2 ) LENGTH(4) 
222 CT NSB ADDRESS, HEX LOCATION(00002054) IN CSECT(O38F2  ) LENGTH(1) 1588 
313. 556 1604  C¥I55 ADDRESS. HEX LOCATION (000029EC) IN CSECT(038F2  ) LENGTH (6) 
 Nepee Se ee ee) a ererere, J uehern) 1608  CY¥I60 "RBBRESS, HEX LOCATION (000029FA) IN CSECT(O36F2 LENGTH (6 
232 CTMS3 ADDRESS. HEX LOCATION(0000205E) IN CSECT(O38F2 ) LENGTH(46) 1578 1383, 1587 1599 © 1897 abOS. eRe | a 
358 1621 cyI65 ADDRESS. HEX LOCATION (00002A20) IN CSECT(O38F2 ) LENGTH(6) 
238 39 CTNS4 ADDRESS. HEX LOCATION (00002090) IN CSECT(O38F2 ) LENGTH(2) 1612 
620 1623 cYI70 ADDRESS. HEX LOCATION (00002A26) IN CSECT(O38F2 ) LENGTH(4) 
242 CTMSS ADDRESS. HEX LOCATION (00002096) IN CSECT(O38F2 ) LENGTH(45) 1549. 1557 1609 
538 1537 CYRID ADDRESS. HEX LOCATION (0000291) IN CSECT(O38F2  ) LENGTH(2) 
248 CTMS6 ADDRESS. HEX LOCATION (000020C6) IN CSECT(O38F2 ) LENGTH(2) 658. 666 676 883° 190 
ape 42 CYROO ADDRESS. HEX LOCATION (00001D70) IN CSECT(O38F2 ) LENGTH(4) 
252  CTHS7 ADDRESS. HEX LOCATION (000020CC) IN CSECT(O38F2 ) LENGTH(51) 1995 
ot 806  DATAWORD ADDRESS, HEX LOCATION (00002632) IN CSECT(038F2 ) LENGTH(2) 
258  CTHS8 ADDRESS. HEX LOCATION (00002102) IN CSECT(O38F2 ) LENGTH(2) 858 86 
Pay 1803 DET15 ADDRESS. HEX LOCATION (00002C24) IN CSECT(O38F2  ) LENGTH(1) 
262 cTMS9 ADDRESS. HEX LOCATION(00002108) IN CSECT(O38F2 ) LENGTH(SO) 1811 
258 1820» DET17 ADDRESS. HEX LOCATION(00002C4A) IN CSECT(O38F2 ) LENGTH(1) 
268 CTM6 ADDRESS, HEX LOCATION (0000213E) IN CSECT(O38F2 ) LENGTH(2) 1806 
448 468. 563 1824 DETIB ADDRESS. HEX LOCATION (00002C52) IN CSECT(O38F2 ) LENGTH(1) 
272 = CT 6A ADDRESS. HEX LOCATION (00002144) IN CSECT(O3@F2 ) LENGTH(13) 1830 
AD 1838  DET20 ADDRESS. HEX LOCATION (00002C72) IN CSECT(O38F2 ) LENGTH(1) 
278  CTN6B ADDRESS. HEX LOCATION (00002154) IN CSECT(O38F2 ) LENGTH(2) 1822. 1827 
4 34 1845 DET21 ADDRESS. HEX LOCATION (00002C82) IN CSECT(O38F2 ) LENGTH(1) 
282  cCTMéC ADDRESS. HEX LOCATION(0000215A) IN CSECT(O38F2 ) LENGTH(13) 18181837 
278 66  DEVAD ADDRESS, HEX LOCATION (00001D8E) IN CSECT(O38F2 ) LENGTH(2) 
288 CTT ADDRESS. HEX LOCATION (0000216A) IN CSECT(O38F2 ) LENGTH(2) 586. 605. 628. 78 30 
36 1641 DNTAB ADDRESS. HEX LOCATION (00002A2A) IN CSECT(O38F2 ) LENGTH(2) 
294 CTNT7A ADDRESS. HEX LOCATION (00002174) IN CSECT(O38F2 ) LENGTH(30) 1802 
288 738 pTyps ADDRESS. HEX LOCATION (000025B0) IN CSECT(O38F2 ) LENGTH(2) 
300 CrN7B ADDRESS. HEX LOCATION (00002196) IN CSECT(O38F2 ) LENGTH (2) 546 
$B) 742  pryp2 ADDRESS, HEX_LOCATION(000025BC) IN CSECT(O38F2 ) LENGTH(4) 
306  crN7c ADDRESS. HEX LOCATION (000021A0) IN CSECT(O38F2 ) LENGTH(34) 598 62 
ty 750 pryp9 ADDRESS. HEX LOCATION (000025D2) IN CSECT(O38F2 ) LENGTH(S) 
312  CTM7D ADDRESS. HEX LOCATION(000021C6) IN CSECT(O38F2 ) LENGTH(2) 743 
ADD 1781 DVTNA ADDRESS. HEX LOCATION (00002BEC) IN CSECT(O38F2 ) LENGTR(2) 
318 CTM7E ADDRESS. HEX LOCATION (000021D0) IN CSECT(O38F2 ) LENGTH (43) 1823 
ADD 1788  DVTUN ADDRESS. HEX LOCATION (00002COC) IN CSECT(O38F2 ) LENGTH(8) 
322. CT MTF ADDRESS, HEX LOCATEON(000Q21FC) IN CSECT(O38F2 ) LENGTH (2) 1840 
328 © CT NB SDDRESS. HEX LOCATION (00002202) IN CSECT (038F2 LENGTH (2 eles B13 1892 Fagg ALOE (00000008) 
332 cae O08 gs HEX se a rarer IN nae , LENGTH a ae ee Bot ee eee) ee ere waare a: = DRNGEA (2) 
= $38 ( ( ( 765 FFO2A ADDRESS. HEX LOCATION (000025DE) IN CSECT(038F2 ) LENGTH(20) 
568  CTNEU JDDRESS, HEX LOCATION (00001DB3) IN CSECT(O38F2 ) LENGTH(1) 7161 
rt 766  FFO2B ADDRESS. HEX LOCATION (000025F2) IN CSECT(O38F2  ) LENGTH(4) 
57s CT NEA ADDRESS- HEX LOCATION (00001D82) IN CSECT(O38F2 ) LENGTH(1) 849 
WB 801. S 773 FFO6 ADDRESS. HEX LOCATION(000025FA) IN CSECT(O38F2 ) LENGTH(2) 
804 | CTRLBLOK ADDRESS. HEX LOCATION (0000262E) IN CSECT(O38F2 ) LENGTH(2) 842 
859. 864 777 ~—*PROGA ADDRESS. HEX LOCATION (00002600) IN CSECT(O38F2 ) LENGTH(19) 
1310 CTRLS ADDRESS. HEX LOCATION (00002782) IN CSECT(O38F2 ) LENGTH(2) 773 
358 1985 781 FFO ADDRESS. HEX LOCATION (00002614) IN CSECT(O38F2  ) LENGTH(2) 
1313 CTRL6 ADDRESS. HEX LOCATION (00002788) IN CSECT(O38F2 ) LENGTH(4) 831 
1286 CTSA “ADDRESS. HEX LOCATION(0000275E) IN CSECT(038F2 ) LENGTH(1) eee RBQRESS. HEX LOCATION (O000261C) IN CSECT(O30F2 } LENGTH (2) 
ADD ( ) 792. -FFIOA ADDRESS. HEX LOCATION (00002622) IN CSECT(O38F2 ) LENGTH(8) 
1287 = CTSA2 ADDRESS. HEX LOCATION (0000275F) IN CSECT(O38F2 ) LENGTH(1) 7388 


O38F2 - CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE 12 O38F2 - CONFIGURATION INITIAL CONFIG OVERLAY P/N=8327417 EC=755404 PAGE 12A 
CROSS-REFERENCE LISTING COPYRIGHT IBN CORP 1976 CROSS~REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NANE ATTRIBUTES AND REFERENCES DECLARED NAHE ATTRIBUTES AND REFERENCES 
7193 FF 10B ame HEX LOCATION (0000262A) IN CSECT(O38F2 ) LENGTH (2) «3 466 
1049 FORTN {RESOLULE, HEX VALUE (00000008) ) SS005 at ea HEX LOCATION (000022DC) IN CSECT(O038F2 ) LENGTH (4) 
931 CDA ° 
1039 FOUR ABSOLUTE. HEX VALUE(00000004) ; sTtcD She ENG Ber 00 ne oa CSECT (O38F2 ) LENGTH (2) 
) . 
989 HTOE ABSOLUTE. HEEL AbOE (000000 7A) in STYPE foot X LOCATION (00002D22) IN CSECT (038F2 ) LENGTH (2) 
9 5 ° 
37 HOF FO ABSOLUTE. HEX VALUE (00000FFO) 1 : STYP AT HEX LOCATION (00002D30) IN CSECT(O38F2 ) LENGTH (2) 
195 S 7 ° 
38 H3010 ABSOLUTE. HEX VALUE (00003010) en ae At aa HEX LOCATION (00002D34) IN CSECT(038P2 ) LENGTH (2) 
STYP ADDRESS. H 0 
345 Icvot a ce HEX LOCATION (00002214) IN CSECT(O38F2 ) LENGTH (4) 878 1951 i354 Soe eee Oy EN cnaerancoere y MENGE 
TCDEA ADDRESS. HEX LOCATION (00 9 
357 Icv05 SEDREess HEX LOCATION (O000222E) IN CSECT(O38F2 ) LENGTH (4) 930 nie ree : 707 . iy a oh DRC orer Gane PENSE) 
RESS. HEX LOCATION 0272 
369 ICV30 REDRESS» HEX LOCATION (0000223A) IN CSECT(O38F2 ) LENGTH (4) 583 PEMA Sons ee ( eet Dap iwen ae woo oe EP ENSEN Cs) 
SS. HEX LOCATI 
380 Ic v50 rt tele HEX LOCATION (0000224C) IN CSECT(O38F2 ) LENGTH (4) 719 rcND 552 600 BE es a eee ae ue y Lever”) 
N ADDRESS. 
391 ICV60 Anee eee REX LOCATION (00002262) IN CSECT(O38F2 ) LENGTH (4) 643 3 kee Fie 0% Penner eee cong ene gia 
TCN3P ° 
809 IDCBW2 ADDRESS. HEX LOCATION (000026 38) IN CSECT(O38F2 ) LENGTH(1) = OD BR ESS pee POC RTT ONAU ERO 20: ae CS ret tOROR2. «) LENGTN(t) 
C ‘ & 
965 IDLE {LESOLUTE. HEX VALUE (00000002) : TCN4P eae HEX LOCATION (OO000246A) IN CSECT(O38F2 ) LENGTH (4) 
1 TCSDS D . 
85 4 OTOCC Pog age LOCATION (00002676) IN CSECT(038F2 ) LENGTH (2) 6.86 wee 656 B62 TO BTo BBO boas epee dudes. 
CSND ADDRESS. HEX 
826 OLOCCERR a HEX LOCATION(0000263A) IN CSECT(O38F2 ) LENGTH (2) 694 Z 74 694 Bae inne ee eons pS EES) 
TCSRF ADDRESS. HEX LOCATI 
1239 OLYRA sg Anca (tcc gh aa IN CSECT (O38F2 ) LENGTH (2) 665 deh 681 Be ee ages een eee p- REUGTE AN) 
S es 
1036 ONE {AESOLUTE. HEX VALUE (00000001) a e80. HEX LOCATION (OOO0O024FE) IN CSECT (038F2 ) LENGTH (6) 
TCSR DDRESS. HEX LOCATIO 00 Cc 
963 our ARFPEONE, HEE Y9LOH (30000090) soe see 57157 coo onesns fe int SE 5 ete 
CSR DRESS. HEX LOCATIO 4 
155 80 wa baaalsboootdly, 15 188 18S 1888 2 cen | fF ek eee 4a 
TCSTA DDRESS. HE oc 
s64 curry AEBOLURT HEESEMLUELB000900") a5 gu 7051058 so neat ature "nus*GtcantO4 ooUBione) sw cence oaar2 } Laxernca 
ADDRESS. HEX LOCATION (0000 4 
3 O38F2 ar aa cL MeL 38a 30) ESDID (1) es meeD ne 551 568 © Mi Se eee ce aee pee) 
Z DRESS. HEX LOCATION (0 
1295 PASS1 ia HEX LOCATION(O000276A) IN CSECT(O38F2 ) LENGTH (2) Bi ar aaa wea? 665 695! a dep iacanida cei ecco 
R - HEX LOCATIO 
971 RESET pee te HEX VALUE (00000008) 697 _ oat 651 : 590 ite eee ee eee: 
TC DDRESS. HEX LOCATION (0 
972 RID {BBSOLUTE. HEX VALUE (00000009) ae ee 597 . LOCATION (00002556) IN CSECT(038F2 ) LENGTH (1) 
SOLUTE. HEX VALUE (00 
978 RSTAT ABSOLUTE. HEX VALUE (0000000F) ee se 1823 1825 ahead: 
0 RO REGISTER. HEX VALUE (90000000) a : B60) Ge eae ee 
WO or 
: 2 He eC ee rT i 4 te ooce ies ey uae ecaean 
WRITI UTE. 
eas Gag HEE OE ARRE RHR 8038 1035 Shae sac ancenponnien 
ZERO BSOLUTE. 
1456 1466 1471 1474 1477 #21480 1800 1815 1816 1808. 4810 Tree ads O00) 
1821 1834 1835 1841 1842 1846 1950 1953 1956 
68 RISAV ADDRESS. HEX LOCATION (00001D90) IN CSECT(O38F2 ©) LENGTH(2) Spee ues ece cet eas eee 
3 WHE Ae ME ee ae He Re oe He i ae he KK ok HERE KKK AKER RRR KKEK EK E KE & 
R2 REGISTER, HEX VALUE (00000002) fees . pean ope 
370 372 381 383 550 585 5 86 5914 593 
595 603 604 605 610 612 614 627 628 
633 741 742 745 1449 1458 1802 1804 1805 
139? 1810 1874 1817 1823 1825 1826 1829 1833 
69 R2SAV ADDRESS. HEX LOCATION(00001D92) IN CSECT(O38F2 )} LENGTH (2) 
585 593 603 612 
R3 REGISTER. HEX Me aaa eae 
487 488 511 512 913 514 528 520 530 
536 545 547 599 619 624 645 646 647 
648 649 650 651 652 653 663 664 673 
674 692 693 7108 709 710 711 7113 714 
715 717 718 738 739 T42 749 826 827 
828 904 1618 
R4 REGISTER. HEX peta sags. 
465 830 907 908 1905 1906 
R5 REGISTER. HEX Aa abal  Otaeata a 
453 472 473 474 509 510 512 531 1821 
1829 1833 1835 1846 1842 1843 1844 1907 
0 R6 REGISTER. HEX ee ae 
438 439 Wa 443 G45 452 453 459 464 
465 472 526 527 aye, 430 536 1450 1451 
1452 1453 1460 1463 1468 1538 1623 1808 1814 
1816 1817 1836 1844 1872 1906 1910 1912 1914 
1916 1918 1920 1923 1926 
0 R7 REGISTER. HEX eee eee 
42 47 345 348 ok 353 357 358 371 
382 384 391 422 434 436 448 (457 462 
468 478 496 505 533 546 547 551 954 
556 557 559 563 568 570 572 574 576 
578 587 588 589 590 591 598 Doe 606 
607 608 609 610 620 623 624 629 630 
631 632 633 635 637 639 644 644 658 
659 666 667 670 676 677 6 80 683 686 
690 698 7109 7102 704 707 750 831 833 
835 837 842 857 858 859 864 878 883 
885 886 887 889 890 893 896 897 900 
901 906 907 914 918 1481 1538 1543 1564 
1614 1619 1799 1808 1809 1810 1813 1832 1839 
1856 1857 1860 1861 1864 1870 1875 1900 1902 
1908 1957 1968 1969 1970 1985 
1041 SIX ade HEX VALUE (00000006) 
434 SS001 AEReESSs HEX LOCATION (0000227C) IN CSECT(O38F2 ) LENGTH (4) 
452 $5002 fen yeaa aT ee Rae ee IN CSECT(O38F2 ) LENGTH (2) 
457? $S003 te aaa HEX LOCATION (000022B2) IN CSECT (O38F2 ) LENGTH (4) 
472 $S00&% ADDRESS. HEX LOCATION (000022N6) IN CSECT(O38F2 ) LENGTH (2) 


